' Event raised if login is successful.
Private Sub moUser2_LoginSuccess(ByVal poUser As T4.API.User) Handles moUser2.LoginSuccess
Trace.WriteLine(String.Format("Login Success for {0}", poUser.Username))
End Sub
' Event raised if login failed.
Private Sub moUser2_LoginFailure(ByVal poUser As T4.API.User, ByVal penReason As T4.LoginResult) Handles moUser2.LoginFailure
Trace.WriteLine(String.Format("Login failed for {0}, Reason: {1}", poUser.Username, penReason))
End Sub